home *** CD-ROM | disk | FTP | other *** search
- %case uses%
- %case instance%
- %itemname%:% %CEditNum;
- %case create%
-
- New (%itemname%);
- %itemname%.IViewRes ('StTx', %paneID%, enclosure, supervisor);
- itsMainPane := %itemname%;
- itsGopher := itsMainPane;
- %case itemNr%
- %DefineItem%
- %case dialog field%
- %fieldname%:% %longint;
- %case init field%
- %fieldname% := 0;
- %case auxiliary%
- %case filter%
- %case set%
- SetDNum (%itemname%, %fieldname%);
- %case hit%
- %if not disabled%
- %itemname%: begin
- GetDNum (itemNr,%fieldname%);
- end;
- %endif%
- %case finish%
- %if disabled%
- GetDNum (%itemname%, %fieldname%);
- %endif%
-